home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Modula / Compilers⁄Interps / MacMETH / MacMETH 3.2 Disk 1⁄2 / Examples / Buggy.MOD next >
Encoding:
Text File  |  1992-10-09  |  279 b   |  19 lines  |  [TEXT/MEDT]
  1. MODULE Buggy; (* W. Heiz, 4-Apr-86 *)
  2.  
  3.   (* contains 1 syntax and 1 run-time error *)
  4.  
  5.   VAR x : CARDINAL;
  6.       a : ARRAY [0..10] OF BOOLEAN;
  7.  
  8.   PROCEDURE P(i : CARDINL; p : BOOLEAN);
  9.   
  10.   BEGIN
  11.     a[i] := p;
  12.   END P;
  13.   
  14. BEGIN 
  15.   x := 14;
  16.   P(0,TRUE);
  17.   P(x,FALSE);
  18. END Buggy.
  19.